r/a/p"
"hhminsec"
coords 
clock
) - (
())/2
4oldHour,oldMinutes,oldSecs,
currentTime 
hour 
minutes 
secs 
hourAngle 
R/12 + 
H/60/12) * (2 * PI) - (PI / 2)
minutesAngle 
x/60) * (2 * PI) - (PI / 2)
secsAngle 
/60) * (2 * PI) - (PI / 2)
UsecsLine
(ctr 
 + (.95 * 
)), \
(.95 * 
UminutesLine
 + (.8 * 
)), \
(.8 * 
"A.M." 
r/a/p"
r/a/p"
"P.M." 
r/a/p"
UhourLine
 + (.6 * 
)), \
(.6 * 
)/2,\
"d-M-y"
r/a/p"
"A.M." 
r/a/p"
"P.M." 
r/a/p"
) - (
toggleStatus
enterBook
author
reader
toggleStatus
enterBook
reader
sizeToPage
d-M-y
date/a/p
date/a/p
date/a/p
hhminsec
clock
coords
radius
secsLine
clock
clock
ffffff
ffffff
minutesLine
clock
clock
date/a/p
date/a/p
date/a/p
hourLine
clock
clock
333333
333333
hourLine
minutesLine
clock
secsLine
secsAngle
minutesAngle
hourAngle
minutes
currentTime
oldHour
oldMinutes
oldSecs
radius
clock
coords
author
sizeToPage
reader
sizeToPage
d-M-y
date/a/p
date/a/p
date/a/p
hhminsec
clock
coords
radius
toggleStatus
Chronometer
oldBounds
124,34,516,466
p7stem
-- Resizeable sample clock 
-- Authored 
HJeff Day, Asymetrix Corporation.
-- Copyright 1990, All Rights Reserved
linkDLL "tbkwin.dll"
INT xUnitsFromPixels(
yUnitsFromPixels(
Ouser"
WORD SetTimer(
,DWORD)
`KillTimer(
/sysClientHandle,100,1000,0) 
timerError
	 = 0
"No Windows timers are available.
will 
200,100,425,345
4oldHour,oldMinutes,oldSecs,radius
oldBounds 
0,0,0,0
"hhminsec"
killTimer(
 100) 
\,oldxOffset,oldyOffset
windowBounds 
.- 8)
I- 28)
q = xoffset 
ehas just been moved
Fupdate its location
"dial" 
sysMagnification,
coords 
) - (
'))/2
K) - (
W))/2
"hub" 
- (.08 * 
- (.08 * 
+ (.08 * 
+ (.08 * 
 < 800
U"minutesLine" 
U"hourLine" 
 < 1200
currentTime 
secs 
hourAngle 
/12 + 
/60/12) * (2 * PI) - (PI / 2)
minutesAngle 
/60) * (2 * PI) - (PI / 2)
secsAngle 
/60) * (2 * PI) - (PI / 2)
UsecsLine
+ (.95 * 
)), \
(.95 * 
+ (.8 * 
)), \
(.8 * 
+ (.6 * 
)), \
(.6 * 
 -- necessary 
smallest possible 
)/2,\
toggleStatus
enterBook
author
leaveBook
reader
toggleStatus
enterBook
tbkwin.dll
xUnitsFromPixels
yUnitsFromPixels
SetTimer
KillTimer
SetTimer
No Windows timers are available.  The clock will not run.
reader
hhminsec
oldBounds
oldHour
oldMinutes
oldSecs
radius
timerError
leaveBook
killTimer
timerError
xoffset
xUnitsFromPixels
yUnitsFromPixels
minutesLine
hourLine
minutesLine
hourLine
minutesLine
hourLine
secsLine
ffffff
ffffff
minutesLine
hourLine
333333
333333
hourLine
minutesLine
secsLine
secsAngle
minutesAngle
hourAngle
minutes
currentTime
coords
yOffset
xOffset
windowBounds
oldHour
oldMinutes
oldSecs
radius
oldBounds
oldxOffset
oldyOffset
coords
author
reader
toggleStatus
d-M-y
date/a/p
date/a/p
date/a/p
hhminsec
coords
oldHour
oldMinutes
oldSecs
radius
toggleStatus
-- Resizeable sample clock 
(Runs 
-- Authored 
HJeff Day, Asymetrix Corporation.
-- Copyright 1990, All Rights Reserved
linkDLL "tbkwin.dll"
INT xUnitsFromPixels(
yUnitsFromPixels(
Ouser"
WORD SetTimer(
,DWORD)
`KillTimer(
/sysClientHandle,100,1000,0) 
timerError
	 = 0
"No Windows timers are available.
will 
200,100,425,345
4oldHour,oldMinutes,oldSecs,radius
oldBounds 
0,0,0,0
"hhminsec"
killTimer(
 100) 
\,oldxOffset,oldyOffset
windowBounds 
.- 8)
I- 28)
q = xoffset 
ehas just been moved
Fupdate its location
"dial" 
sysMagnification,
coords 
) - (
'))/2
K) - (
W))/2
"hub" 
- (.08 * 
- (.08 * 
+ (.08 * 
+ (.08 * 
 < 800
U"minutesLine" 
U"hourLine" 
 < 1200
currentTime 
secs 
hourAngle 
/12 + 
/60/12) * (2 * PI) - (PI / 2)
minutesAngle 
/60) * (2 * PI) - (PI / 2)
secsAngle 
/60) * (2 * PI) - (PI / 2)
UsecsLine
+ (.95 * 
)), \
(.95 * 
+ (.8 * 
)), \
(.8 * 
+ (.6 * 
)), \
(.6 * 
 -- necessary 
smallest possible 
)/2,\
toggleStatus
enterBook
author
leaveBook
reader
toggleStatus
enterBook
tbkwin.dll
xUnitsFromPixels
yUnitsFromPixels
SetTimer
KillTimer
SetTimer
No Windows timers are available.  The clock will not run.
reader
hhminsec
oldBounds
oldHour
oldMinutes
oldSecs
radius
timerError
leaveBook
killTimer
timerError
xoffset
xUnitsFromPixels
yUnitsFromPixels
minutesLine
hourLine
minutesLine
hourLine
minutesLine
hourLine
secsLine
ffffff
ffffff
minutesLine
hourLine
333333
333333
hourLine
minutesLine
secsLine
secsAngle
minutesAngle
hourAngle
minutes
currentTime
coords
yOffset
xOffset
windowBounds
oldHour
oldMinutes
oldSecs
radius
oldBounds
oldxOffset
oldyOffset
coords
author
reader
toggleStatus
reader
clock components
oldPos
resize
d-M-y
date/a/p
date/a/p
date/a/p
hhminsec
coords
oldHour
oldMinutes
oldSecs
radius
toggleStatus
hourLine
secsLine
minutesLine
date/a/p
25-May-1990
A.M.M.
4radius
"dial"
clock - .8 * 
f((i - 1)/12 * 2 * PI + PI/2)),\
((i - 1)/12 * 2 * PI + PI/2))
buttonUp
buttonUp
clock
radius
Button
B	@-@
,$*8bjaR